home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DATETIME / UNIXTM / TODAY.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-16  |  2KB  |  45 lines
  1. {------------------------------------------------------------------------------}
  2. {- Program    : TODAY.PAS                                                     -}
  3. {- Programmer : Todd Fiske                                                    -}
  4. {-                                                                            -}
  5. {- Purpose    : Test the UNIXTIME.PAS unit                                    -}
  6. {-                                                                            -}
  7. {- Revision   : 05/16/1996 - first version                                    -}
  8. {- History                                                                    -}
  9. {-                                                                            -}
  10. {- Language   : Turbo Pascal 7.0                                              -}
  11. {-                                                                            -}
  12. {------------------------------------------------------------------------------}
  13. program tpday;
  14.  
  15. uses
  16.    dos,
  17.    unixtime;
  18.  
  19. var
  20.    goop : word;
  21.    t    : longint;
  22.    d    : DateTime;
  23.  
  24. begin
  25.    writeln;
  26.    writeln('"Today is the greatest day I''ve ever known!" - Billy Corgan, Unix aficionado');
  27.  
  28.    GetDate(d.year, d.month, d.day, goop);        { put system time into }
  29.    GetTime(d.hour, d.min,   d.sec, goop);        { a DateTime record }
  30.    PackUnixTime(d, t);
  31.  
  32.    writeln;
  33.    writeln(t:1, '   ', FormatUnixTime(t));
  34.  
  35.    UnpackUnixTime(t, d);
  36.  
  37.    writeln;
  38.    writeln('year      : ', d.year  : 4);
  39.    writeln('month     : ', d.month : 4);
  40.    writeln('day       : ', d.day   : 4);
  41.    writeln('hour      : ', d.hour  : 4);
  42.    writeln('minute    : ', d.min   : 4);
  43.    writeln('second    : ', d.sec   : 4);
  44. end.
  45.